home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 May / Ahoy_Magazine_86-05_1986_Double_L.d64 / free ram check (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  27 lines
  1. 10 rem *** free ram check *** buck childress (01/27/86) ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 poke56,peek(56)-4:clr
  4. 40 printchr$(147)"loading and checking data...":print:j=40000:l=100:c=11
  5. 50 forb=0toc:reada:pokej+b,a:x=x+a:nextb:reada
  6. 60 ifx<>athenprint"error in data line"l:end
  7. 70 x=0:j=j+12:l=l+10:ifl<260then50
  8. 80 ifl=260thenc=7:goto50
  9. 90 print"data ok and loaded...":print:print"sys 40000 to activate...":end
  10. 100 data32,68,229,169,167,162,2,133,251,134,252,134,1733
  11. 110 data253,162,0,142,219,216,232,32,186,156,230,253,2081
  12. 120 data162,0,160,0,138,141,219,4,145,251,209,251,1680
  13. 130 data208,66,232,208,243,230,251,208,239,230,252,165,2532
  14. 140 data252,197,253,144,231,201,208,176,37,32,158,156,2045
  15. 150 data165,253,201,4,176,12,169,60,133,251,162,2,1588
  16. 160 data32,186,156,76,86,156,169,192,162,207,133,252,1807
  17. 170 data134,253,162,3,32,186,156,76,86,156,160,13,1417
  18. 180 data32,194,156,160,30,76,194,156,160,20,32,194,1404
  19. 190 data156,165,253,201,208,176,240,169,0,133,251,76,2028
  20. 200 data124,156,160,6,24,32,240,255,160,0,185,230,1572
  21. 210 data156,240,7,32,210,255,200,76,194,156,192,13,1731
  22. 220 data144,1,96,166,251,165,252,32,205,189,169,45,1715
  23. 230 data32,210,255,162,255,165,253,76,205,189,67,72,1941
  24. 240 data69,67,75,73,78,71,32,42,42,32,0,32,613
  25. 250 data42,42,32,79,75,0,32,42,42,32,69,82,569
  26. 260 data82,79,82,0,17,17,17,0,294
  27.